* fns-tests.el (fns-tests-nreverse): Update for changed string behavior.

diff --git a/test/ChangeLog b/test/ChangeLog
index 3fed9759ca7e8cdf193860ebc4e159b24c5b2b22..d5756350482d27701cf73ec639b9ec0ac9343d92 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2014-05-22  Glenn Morris  <rgm@gnu.org>
+
+       * automated/fns-tests.el (fns-tests-nreverse):
+       Update for changed string behavior.
+
 2014-05-15  Dmitry Antipov  <dmantipov@yandex.ru>
 
        * automated/fns-tests.el: New file.

diff --git a/test/automated/fns-tests.el b/test/automated/fns-tests.el
index 577298cddf49719e1a8bf5b1c705b2d3cb385223..21a9e4536afd0bd4602f5722ce07a70962590edf 100644 (file)
--- a/test/automated/fns-tests.el
+++ b/test/automated/fns-tests.el
@@ -39,7 +39,7 @@
   (should-error (nreverse))
   (should-error (nreverse 1))
   (should-error (nreverse (make-char-table 'foo)))
-  (should-error (nreverse "xyzzy"))
+  (should (equal (nreverse "xyzzy") "yzzyx"))
   (let ((A []))
     (nreverse A)
     (should (equal A [])))